Topic: Prime program implemented in QuickBasic

February 4, 2016

INPUT number

prime$ = "True"

divisor = 2

WHILE divisor < number

    intermediate = number

    WHILE intermediate >= divisor
        intermediate = intermediate - divisor
    WEND

    remainder = intermediate

    IF remainder = 0 THEN
        prime$ = "False"
    END IF

    divisor = divisor + 1

WEND

PRINT print$